home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 24
/
AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso
/
PublicDomain
/
Anwendungen
/
MT-RechnungIII
/
Rexx
/
FWLieferscheinOB.outrexx
< prev
next >
Wrap
Text File
|
1999-02-28
|
6KB
|
259 lines
/*
** Druck-, Vorschau, Sichern des Lieferscheins ohne Beträge mit Hilfe von FinalWriter
** $VER: FWLieferscheinOB.outrexx V1.00 (28.02.99)
*/
PARSE ARG ARexxPort;
ADDRESS VALUE ARexxPort;
OPTIONS RESULTS;
FWVorlage = "FWDokumente/LieferscheinOB.fw";
FWDokument = "t:LieferscheinOB.fw";
FWPort = "FINALW."
LF = '0a'x; /* Zeilenvorschub */
Gefunden = 0;
DO i = 1 TO 20 WHILE(Gefunden = 0)
IF show(ports, (FWPort || i)) THEN
DO;
Gefunden = 1;
FWPort = FWPort || i;
END;
END;
IF Gefunden = 0 THEN
DO;
ES_TITLE = "Warnung";
ES_TEXTFORMAT = "FinalWriter ist nicht aktiv, bitte starten sie dieses" || LF || "und versuchen Sie es erneut";
ES_GADGETFORMAT = "Abbrechen";
EASY_REQUEST;
EXIT;
END;
/* Original FW-Dokument nach t: kopieren, um ein versehentliches überschreiben */
/* dieser Vorlage zu verhindern */
GET_REXXPATH;
FWVorlage = MTR_RESULT || FWVorlage;
ADDRESS COMMAND "copy" FWVorlage FWDokument;
/* Oberfläche sperren */
LOCKGUI;
/* Art ermitteln: 0 = Drucken, 1 = Vorschau, 2 = Speichern */
PRINTSTATE;
Druckart = MTR_RESULT;
Ende_Kennzeichen = 'N';
/* Suchen der zu druckenden Daten */
GET_PREFS;
PRINTFIND;
DO WHILE( MTR_RESULT > 0 & Ende_Kennzeichen = 'N');
ADDRESS VALUE FWPort;
SCREENTOFRONT;
CALL DatenAufbereiten;
SELECT;
WHEN Druckart = 0 THEN /* Drucken */
DO;
ADDRESS VALUE FWPort;
PRINT;
ADDRESS VALUE ARexxPort;
MTSCREENTOFRONT;
END;
WHEN Druckart = 1 THEN /* Vorschau */
ADDRESS VALUE ARexxPort;
WHEN Druckart = 2 THEN /* Sichern */
DO;
ADDRESS VALUE FWPort;
SAVEAS;
ADDRESS VALUE ARexxPort;
MTSCREENTOFRONT;
END;
OTHERWISE
DO;
ES_TITLE = "Warnung";
ES_TEXTFORMAT = "Druckart wird nicht unterstützt!";
ES_GADGETFORMAT = "Ok";
EASY_REQUEST;
Ende_Kennzeichen = 'J';
END;
END;
PRINTFIND;
END;
/* WordWorth-Datei aus t: wieder entfernen */
ADDRESS COMMAND "delete" FWDokument;
/* Oberfläche wieder entsperren */
ADDRESS VALUE ARexxPort;
FREEGUI;
EXIT;
DatenAufbereiten:
ADDRESS VALUE ARexxPort;
IF OB.CONSIGNEE_NUMBER = 0 THEN
OB.CONSIGNEE_NUMBER = OB.INVOICEE_NUMBER;
IF PREFS.NUMBER_DIGITS > 0 THEN
DO;
ZW_Rechnung = RIGHT( (Copies("0",PREFS.NUMBER_DIGITS) || MTR_RESULT), PREFS.NUMBER_DIGITS );
IF OB.CONSIGNEE_NUMBER > 0 THEN
ZW_Kunde = RIGHT( (Copies("0",PREFS.NUMBER_DIGITS) || OB.CONSIGNEE_NUMBER), PREFS.NUMBER_DIGITS );
ELSE
ZW_Kunde = RIGHT( (Copies("0",PREFS.NUMBER_DIGITS) || OB.INVOICEE_NUMBER), PREFS.NUMBER_DIGITS );
END;
ELSE
DO;
ZW_Rechnung = MTR_RESULT;
IF OB.CONSIGNEE_NUMBER > 0 THEN
ZW_Kunde = OB.CONSIGNEE_NUMBER;
ELSE
ZW_Kunde = OB.INVOICEE_NUMBER;
END;
IF PREFS.CLIENT_CODE = 1 THEN
ZW_Kunde = OB.CONSIGNEE.CUSTOMER.CLIENT_CODE;
FORMAT_DATE_LONG date(s);
PRINTDATE = MTR_RESULT;
FORMAT_DATE_LONG OB.DATE_DELIVERY_NOTE;
IF MTR_RESULT = "" THEN
DELIVERY_NOTE_DATE_LONG = " ";
ELSE
DELIVERY_NOTE_DATE_LONG = MTR_RESULT;
ADDRESS VALUE FWPort;
CLEARDOC;
OPEN FWDokument;
DruckString = OB.OFFICE.ADDRESS.ADDRESS.2 || LF;
i = INDEX( DruckString, LF);
IF i > 0 THEN
DO;
DruckTeil = LEFT( DruckString, (i - 1) );
DruckString = SUBSTR(DruckString, (i + 1) );
i = INDEX( DruckString, LF);
END;
ELSE
DruckTeil = DruckString;
FIND "<OFFICE.ADDRESS.2>";
FINDNEXT;
STATUS LinePos;
PARSE VAR RESULT BegLine BegPosition EndLine EndPosition;
TYPE DruckTeil;
FIND "<PRINTDATE>"
TYPE PRINTDATE;
DO WHILE( i > 0 );
DruckTeil = LEFT( DruckString, (i - 1) );
DruckString = SUBSTR(DruckString, (i + 1) );
BegLine = BegLine + 1;
MoveToLine BegLine 0;
TYPE DruckTeil;
i = INDEX( DruckString, LF);
END;
FIND "<OFFICE.ADDRESS.ADDRESS.0>";
TYPE OB.OFFICE.ADDRESS.ADDRESS.0;
DruckString = OB.CONSIGNEE.CUSTOMER.ADDRESS.ADDRESS.2 || LF;
i = INDEX( DruckString, LF);
IF i > 0 THEN
DO;
DruckTeil = LEFT( DruckString, (i - 1) );
DruckString = SUBSTR(DruckString, (i + 1) );
i = INDEX( DruckString, LF);
END;
ELSE
DruckTeil = DruckString;
FIND "<CUSTOMER.ADDRESS.ADDRESS.2>";
STATUS LinePos;
PARSE VAR RESULT BegLine BegPosition EndLine EndPosition;
TYPE DruckTeil;
DO WHILE( i > 0 );
DruckTeil = LEFT( DruckString, (i - 1) );
DruckString = SUBSTR(DruckString, (i + 1) );
BegLine = BegLine + 1;
MoveToLine BegLine 0;
TYPE DruckTeil;
i = INDEX( DruckString, LF);
END;
FIND "<OB.INVOICEE_NUMBER>";
TYPE ZW_Kunde;
FIND "<OB.NUMBER>";
TYPE ZW_Rechnung;
FIND "<OB.DATE_DELIVERY_NOTE>";
TYPE DELIVERY_NOTE_DATE_LONG;
FIND "<OB.EMPLOYEE.SUR_PRENAME>";
TYPE (OB.EMPLOYEE.ADDRESS.PRENAME OB.EMPLOYEE.ADDRESS.SURNAME);
FIND "<ARTICLE>";
BACKSPACE;
DO i = 1 to OB.COUNT_ARTICLE;
ADDRESS VALUE ARexxPort;
ZW_ArtikelNr = OB.i.POS_ARTICLE_NUMBER_FORMATED;
FORMAT_NUMBER (OB.i.POS_QUANTITY / OB.i.POS_PRICE_UNIT) PREFS.FRAC_DIGITS;
ZW_Anzahl = MTR_RESULT;
NAME_OF_QUANTITY_UNIT OB.i.ARTICLE.QUANTITY_UNIT;
ZW_Einheit = MTR_RESULT;
j = OB.i.POS_VALUE;
FORMAT_NUMBER OB.VALUE_PERCENT.j PREFS.FRAC_DIGITS_PERCENT;
ZW_MWSt = MTR_RESULT;
ZW_Bezeichnung = OB.i.ARTICLE.DESCRIPTION;
ADDRESS VALUE FWPort;
TYPE ZW_ArtikelNr || " " || ZW_Anzahl || " " || ZW_Bezeichnung || " " || ZW_Einheit || " " || ZW_MWSt;
IF OB.i.ARTICLE.ADDITIONAL_TEXT > "" THEN
DO;
DruckString = OB.i.ARTICLE.ADDITIONAL_TEXT || LF;
i2 = INDEX( DruckString, LF);
DO WHILE( i2 > 0 );
DruckTeil = LEFT( DruckString, (i2 - 1) );
DruckString = SUBSTR(DruckString, (i2 + 1) );
NEWPARAGRAPH;
TYPE " " || DruckTeil;
i2 = INDEX( DruckString, LF);
END;
END;
IF OB.i.POS_REMARK > "" THEN
DO;
DruckString = OB.i.POS_REMARK || LF;
i2 = INDEX( DruckString, LF);
DO WHILE( i2 > 0 );
DruckTeil = LEFT( DruckString, (i2 - 1) );
DruckString = SUBSTR(DruckString, (i2 + 1) );
NEWPARAGRAPH;
TYPE " " || DruckTeil;
i2 = INDEX( DruckString, LF);
END;
END;
NEWPARAGRAPH;
END;
RETURN;